home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir31 / 1st_card.zip / 1ST-CARD.INS next >
Text File  |  1993-12-25  |  3KB  |  92 lines
  1. SPARKWARE
  2.  
  3.         IF NOT EXIST "API.$$$" THEN CLS
  4.         BOX(5,10,20,70,48,112,1,1,"","")
  5.         QPRINT("The 1stReader Christmas Card",7,-1,-1)
  6.         SCREEN(2,SAVE)
  7.         QPRINT("You can press any key to stop the music",9,-1,-1)
  8.         QPRINT("and move on to the next picture.")
  9.         QPRINT("Sparkware",13,-1,-1)
  10.         QPRINT("Post Office Box 386")
  11.         QPRINT("Hendersonville, TN  37077")
  12.         QPRINT("(615) 230-8822   Bulletin Board",17,-1,-1)
  13.         QPRINT("(615) 230-MAIL   Office (10-5 weekdays)")
  14.         PAUSE 5
  15.  
  16.         IF NOT PLAY_AVAILABLE THEN GOTO TOP
  17.         SCREEN(2,RESTORE)
  18.         QPRINT("We can play these Christmas carols through a MIDI",9,-1,-1)
  19.         QPRINT("device if you have one connected to your system.")
  20.         QPRINT("Otherwise, the carols will play through your sound card.")
  21.         DIALOG_BOX(1,0,83,1," Sound card ",13,13,112,112,1,116,15)
  22.         DIALOG_BOX(2,0,77,2,"  Use MIDI  ",13,32,112,112,1,116,15)
  23.         DIALOG_BOX(3,0,27,3,"    Quit    ",13,51,112,112,1,116,15)
  24.         QPRINT("Press the highlighted key to select your choice",18,-1,-1)
  25.         GET(Choice$,1)
  26.         CLEAR_BOXES
  27.         IF COMPARE(Choice$,"2") THEN MPU401 ON
  28.         IF COMPARE(Choice$,"3") THEN GOTO DONE
  29.  
  30. :TOP
  31.         BLOAD("SANTA.BIN")
  32.         VOC_FILE "WELCOME.VOC"
  33.         PLAY_FILE("SLEIGHGM.MID")
  34.         IF NOT PLAY_AVAILABLE THEN PAUSE 5
  35.  
  36.         BLOAD("FIRE.BIN")
  37.         VOC_FILE "WISHES.VOC"
  38.         PLAY_FILE("WASS32.MID")
  39.         IF NOT PLAY_AVAILABLE THEN PAUSE 5
  40.  
  41.         BLOAD("HOUSE.BIN")
  42.         PLAY_FILE("JNGBELL2.MID")
  43.         IF NOT PLAY_AVAILABLE THEN PAUSE 5
  44.  
  45.         BLOAD("SINGING.BIN")
  46.         PLAY_FILE("MIDNIGHT.MID")
  47.         IF NOT PLAY_AVAILABLE THEN PAUSE 5
  48.  
  49.         BLOAD("TREE.BIN")
  50.         PLAY_FILE("JBELROCK.MID")
  51.         IF NOT PLAY_AVAILABLE THEN PAUSE 5
  52.  
  53.         BLOAD("SNOWMAN.BIN")
  54.         PLAY_FILE("LETITSNO.MID")
  55.         IF NOT PLAY_AVAILABLE THEN GOTO DONE
  56.  
  57.         BLOAD("CANDLE.BIN")
  58.         PLAY_FILE("TORCH32.MID")
  59.         IF NOT PLAY_AVAILABLE THEN PAUSE 5
  60.  
  61.         SCREEN(2,SAVE)
  62.         BOX(10,10,14,70,112,112,1,1,"Press the [ESC] key to quit","")
  63.         PAUSE 10
  64.         SCREEN(2,RESTORE)
  65.         IF LASTKEY 27 THEN GOTO DONE
  66.  
  67.         GOTO TOP
  68.  
  69. :DONE
  70.         IF NOT PLAY_AVAILABLE THEN PAUSE 5
  71.         DISPLAY OFF
  72.         SHOW "GOODBYE.ANS"
  73.         DISPLAY ON
  74.         VOC_FILE "GOODBYE.VOC"
  75.         IF NOT VOC_AVAILABLE THEN PAUSE 5
  76.  
  77.         BOX(5,10,20,70,112,112,1,1,"","")
  78.         QPRINT("The 1stReader Install Module",7,-1,-1)
  79.         QPRINT("is for the use of Sparkware customers only")
  80.         QPRINT("For information about licensing this program",10)
  81.         QPRINT("please contact")
  82.         QPRINT("Sparkware",13,-1,-1)
  83.         QPRINT("Post Office Box 386")
  84.         QPRINT("Hendersonville, TN  37077")
  85.         QPRINT("(615) 230-8822   Bulletin Board",17,-1,-1)
  86.         QPRINT("(615) 230-MAIL   Office (10-5 weekdays)")
  87.         PAUSE 5
  88.  
  89.         SCREEN(1,RESTORE)
  90.         MPU401 OFF
  91.  
  92.